home *** CD-ROM | disk | FTP | other *** search
/ Atari Forever 4 / Atari Forever 4.zip / Atari Forever 4.iso / SERIE_SP / SP_015 / FACE_VAL / LISTINGS / LISTING3.TXT < prev    next >
Text File  |  1998-03-14  |  536b  |  21 lines
  1. SELECT tree&
  2. CASE menu&
  3.   SELECT object&
  4.   CASE menuabou&
  5.     ' "Über mich..." wurde angeklickt
  6.     ' => Infodialog anzeigen
  7.     LET prginfo_dialog&=@win_open_dialog(2,prginfo&,icfyicon&)
  8.     ' als erster Parameter nun 2 => nonmodaler Dialog
  9.     ' als dritter Parameter: Baumname des Iconifyicons
  10.   CASE menuquit&
  11.     exit_program!=TRUE
  12.   ENDSELECT
  13. CASE prginfo&
  14.   SELECT object&
  15.   CASE infook&
  16.     ' Der OK-Button wurde angeklickt
  17.     ' => Infodialog schließen
  18.     @win_close(prginfo_dialog&)
  19.   ENDSELECT
  20. ENDSELECT
  21.